home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SCRNE2.SDA / NMI STRIPES! (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  29 lines
  1. 10 REM  NMI STRIPES!
  2. 20 FORI=830TO928:READA%:POKEI,A%:NEXT:SYS830:R$="[147]"
  3. 30 FORI=0TO5:READA$,B$,Q(I):Q$(I)=R$+A$+B$:NEXT
  4. 40 POKE53280,1:POKE53281,1:PRINT"[144]";
  5. 50 FORJ=0TO5:POKE889,Q(J):PRINTQ$(J):PRINT"POKE 889,"Q(J)
  6. 60 FORI=1TO4000:NEXTI:NEXTJ:PRINT"TO REENABLE PRESS RETURN"
  7. 70 PRINT"SYS830:GOTO40[145][145][145]":POKE198,0:END
  8. 80 REMSYS830 TO START NMI'SPOKE889,0 TO TURN OFF STRIPESPOKE889,1 TO TURN ON STRIPESPOKE889,64 TO TURN ON BACKGROUND STRIPESPOKE889,128 TO TURN ON BORDER STRIPESPOKE889,255 TO STOP
  9. 830 DATA120,169,115,141,24,3,169,3,141,25
  10. 840 DATA3,88,169,127,141,13,221,169,130,141
  11. 850 DATA13,221,169,99,141,4,221,169,1,141
  12. 860 DATA5,221,169,17,141,14,221,169,2,141
  13. 870 DATA6,221,169,0,141,7,221,169,81,141
  14. 880 DATA15,221,96,72,138,72,152,72,169,0
  15. 890 DATA201,255,240,24,44,121,3,240,10,48
  16. 900 DATA5,112,9,238,33,208,238,32,208,76
  17. 910 DATA81,254,238,33,208,76,81,254,238,121
  18. 920 DATA3,169,127,141,13,221,76,81,254
  19. 1000 DATA"BOTH BORDER &[157][157][157][157][157][157][157][157][157][157][157][157]BACKGROUND[157][157][157][157][157][157][157][157][157]STRIPES!"
  20. 1010 DATA"[157][157][157][157][157][157][157][157][157]TURNED OFF",0
  21. 1020 DATA"BOTH BORDER &[157][157][157][157][157][157][157][157][157][157][157][157]BACKGROUND[157][157][157][157][157][157][157][157][157]STRIPES!"
  22. 1030 DATA"[157][157][157][157][157][157][157][157][157][157][157][157][157][157](IN THE SAME COLORS)",1
  23. 1040 DATA"BACKGROUND[157][157][157][157][157][157][157][157][157]STRIPES![157][157][157][157][157][157]ONLY","",64
  24. 1050 DATA"BORDER[157][157][157][157][157][157][157]STRIPES![157][157][157][157][157][157]ONLY","",128
  25. 1060 DATA"BOTH BORDER &[157][157][157][157][157][157][157][157][157][157][157][157]BACKGROUND[157][157][157][157][157][157][157][157][157]STRIPES!"
  26. 1070 DATA"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157](IN DIFFERENT COLORS)",1
  27. 1080 DATA"[157][157][157][157][157]NMI'S ARE NOW DISABLED[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]DISK ACTIVITIES"
  28. 1090 DATA"[157][157][157][157][157][157][157][157][157][157][157][157]CAN RESUME",255
  29.